home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ Startmenu Items 2.xpl < prev    next >
Text File  |  1999-07-18  |  3KB  |  84 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Appearance\Start menu\Visible Items"
  5. "NAME"="Visible Items #2"
  6. "VERSION"="1.27"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show user-created folders in Start menu"
  9. "TEXT 2"="Show "Find..." in Start menu"
  10. "TEXT 3"="Show "Log Off <Username>" in Start menu"
  11. "TEXT 4"="Show common groups in Start->Programs"
  12. "DESCRIPTION 1"="Use this plug-in to show or hide some of the items in the Start menu."
  13. "DESCRIPTION 2"="User-created folder are folders that are created in the start menu folder (e.g. "C:\Windows\Startmenu") and are normally displayed at the top of "Programs"."
  14. "DESCRIPTION 3"="Context menus in the Start menu are only available if you are using Windows 98 or Internet Explorer 4 with ActiveDesktop."
  15. "DESCRIPTION 4"="NOTE: Show "Log Off <Username>" might not work if you are using Windows 98 with IE 5 installed."
  16. "AUTHOR"="Xteq Systems"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  19. "COMMENT 2"=" "
  20. "COMMENT 3"="Thanks to Jon-Roar Selenius (jseleniu@online.no) for spotting the "Recent Documents always empty" bug."
  21. "COMMENT 4"="Thanks to CptSiskoX for the "Show Log Off" Win98 note."
  22.  
  23. 'Declaration of some constants
  24. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  25.  
  26. 'Called when the Plugin is started
  27. SUB Plugin_Initialize
  28.  i=RegReadValue(sp&"NoStartMenuSubFolders") 
  29.  If IsEmpty(i) or i=0 then SetUIElement 1,true
  30.  
  31.  i=RegReadValue(sp&"NoFind") 
  32.  if IsEmpty(i) or i=0 then SetUIElement 2,true
  33.  
  34.  i=RegReadValue(sp&"NoLogOff") 'Binary
  35.  if IsEmpty(i) or i=0 then SetUIElement 3,true
  36.  
  37.  i=RegReadValue(sp&"NoCommonGroups") 
  38.  if IsEmpty(i) or i=0 then SetUIElement 4,true 
  39.  
  40. END SUB
  41.  
  42. 'Called when the Plugin should validate the Data the user has entered
  43. SUB Plugin_CheckData(ElementIndex)
  44. END SUB
  45.  
  46. 'Called when the Plugin should apply the changes
  47. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  48.  b=GetUIElement(1)
  49.  if b=true then
  50.   Call RegWriteValue(sp&"NoStartMenuSubFolders",0,2)
  51.  else
  52.   Call RegWriteValue(sp&"NoStartMenuSubFolders",1,2)
  53.  end if
  54.  
  55.  b=GetUIElement(2)
  56.  if b=true then
  57.   Call RegWriteValue(sp&"NoFind",0,2)
  58.  else
  59.   Call RegWriteValue(sp&"NoFind",1,2)
  60.  end if
  61.  
  62.  b=GetUIElement(3)
  63.  if b=true then
  64.   Call RegWriteValue(sp&"NoLogOff","00000000",3)
  65.  else
  66.   Call RegWriteValue(sp&"NoLogOff","01000000",3)
  67.  end if
  68.  
  69.  b=GetUIElement(4)
  70.  if b=true then
  71.   Call RegWriteValue(sp&"NoCommonGroups",0,2)
  72.  else
  73.   Call RegWriteValue(sp&"NoCommonGroups",1,2)
  74.  end if
  75.  
  76.  
  77.  
  78.  Call Logoff
  79. END SUB
  80.  
  81. 'Called when the Plugin is about to be removed from memory
  82. SUB Plugin_Terminate
  83. END SUB
  84.